home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
logs
/
logbook
/
awardedt.prg
< prev
next >
Wrap
Text File
|
1990-05-04
|
3KB
|
117 lines
*:*********************************************************************
*:
*: Program: AWARDEDT.PRG
*:
*: System: PC-HAM Logbook
*: Author: Joe Kasser G3ZCZ
*: Copyright (c) 1990, Joe Kasser
*: Last modified: 04/27/90 13:24
*:
*: Called by: AWARD.PRG
*:
*: Uses: &LOGBOOK.DBF
*: : &AWARD
*:
*: Indexes: &LOGNDX
*: : &AWARD
*:
*: Documented 05/04/90 at 13:50 SNAP! version 3.12f
*:*********************************************************************
* award VERSION 860501 (c) COPYRIGHT 1985,1986 JOE KASSER G3ZCZ
* PUTS DATA IN award DATABASE
SELECT 1
USE &logbook INDEX &logndx
SELECT 2
USE &award INDEX &award
STORE .t. TO cflag
STORE ' ' TO cstate
STORE ' ' TO df
STORE ' ' TO callcard
CLEAR
DO WHILE cflag
CLEAR
@ 1,5 SAY 'G3ZCZ GENERAL AWARD DATA ENTRY PROGRAM VERSION 1.2'
@ 3,1 SAY ' '
ACCEPT 'Which Award area (* to terminate) ? ' TO cstate
IF cstate = '*'
STORE .F. TO cflag
ELSE
SELECT 2
GOTO TOP
FIND &cstate
IF (EOF() .or. BOF())
@ 6,10 SAY ' '
? cstate,' IS A NEW ONE'
ELSE
@ 8,1 SAY ' '
? pc,ddate,dband,dcall,dmode,dstate
ENDIF
@ 12,1 SAY 'Do you want to update the entry (Y/N/E) ?'
@ 12,43 GET df
READ
DO CASE
CASE df = 'Y'
STORE ' ' TO callcard
SELECT 1
@ 14,1 SAY 'What is the call ? '
@ 14,21 GET callcard
READ
FIND &callcard
@ 16,1 SAY ' '
IF (EOF() .or. BOF())
? callcard,' is not in log'
ELSE
STORE .t. TO qflag
DO WHILE CALL = callcard .and. qflag
@ 20,1 SAY ' '
DISP
@ 22,2 SAY ' '
ACCEPT 'This one (Y/N) ?' TO df
IF df = 'Y'
STORE .F. TO qflag
ENDIF
SKIP
ENDDO
IF qflag
* DON'T update entry
ELSE
SKIP -1
STORE cstate TO cstate
STORE CALL TO CALL
STORE DATE TO DATE
STORE TIME TO TIME
STORE band TO band
STORE mode TO mode
STORE qslrx TO qslrx
SELECT 2
IF (EOF() .or. BOF())
APPEND BLANK
ENDIF
REPLACE pc WITH cstate
REPLACE dcall WITH CALL
REPLACE ddate WITH DATE
REPLACE dtime WITH TIME
REPLACE dband WITH band
REPLACE dmode WITH mode
REPLACE dstate WITH qslrx
ENDIF
ENDIF
CASE df = 'E'
REPLACE dcall WITH ' '
REPLACE ddate WITH ' '
REPLACE TIME WITH ' '
REPLACE dband WITH ' '
REPLACE dmode WITH ' '
REPLACE dstate WITH ' '
ENDCASE
ENDIF
ENDDO
SELECT 1
USE
SELECT 2
USE
RELEASE qflag,callcard,df,cstate,cflag
RETURN
*: EOF: AWARDEDT.PRG